﻿Imports t4mfg.App

Public Class frmSplash
    Private _isCanceled As Boolean
    Public Property IsCanceled() As Boolean
        Get
            Return _isCanceled
        End Get
        Set(ByVal value As Boolean)
            _isCanceled = value
        End Set
    End Property

    Public Sub SetText(ByVal text As String)
        If String.IsNullOrEmpty(text) Then
            Me.Refresh()
            Return
        End If
        tbText.Text &= text & vbCrLf
        tbText.SelectionLength = 0
        tbText.SelectionStart = tbText.Text.Length
        tbText.ScrollToCaret()
        Me.Refresh()
    End Sub
    Public Sub New(ByVal prov As String, ByVal rev As String, ByVal rel As String)
        InitializeComponent()
        lbRelease.Text = rel
        lbProvider.Text = prov
        lbRevision.Text = rev
    End Sub
    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        _isCanceled = True
        btnCancel.Enabled = False
    End Sub
End Class